home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tex / mf / inputs / cm / greekcsc.mf < prev    next >
Text File  |  1995-03-15  |  905b  |  35 lines
  1. mode_setup;
  2. font_setup;
  3.  
  4. readfrom("gen_acc");
  5. readfrom("csc_misce");
  6. readfrom("rgrupper");
  7. readfrom("digits");
  8. readfrom("rgrpunct");
  9.  
  10. font_slant slant; font_x_height x_height#;
  11. if monospace: font_normal_space 9u#; % no stretching or shrinking
  12. font_quad 18u#;
  13. font_extra_space 9u#;
  14. else: font_normal_space 6u#+2letter_fit#;
  15. font_normal_stretch 3u#; font_normal_shrink 2u#;
  16. font_quad 18u#+4letter_fit#;
  17. font_extra_space 2u#;
  18. fi
  19.  
  20. x_height2#:=x_height#;
  21. forsuffixes $ = u,width_adj, cap_serif_fit, letter_fit,
  22. body_height, cap_height, x_height, bar_height, comma_depth,
  23. flare, cap_hair, stem, cap_stem, cap_curve, cap_ess,
  24. cap_jut, beak_jut, beak, slab, cap_bar, cap_band, cap_notch_cut,
  25. o, apex_o: $.# := lower.$.#; endfor
  26. font_setup;
  27. readfrom("scsc");
  28. extra_endchar := extra_endchar & ";charcode:=charcode+code_offset;";
  29. code_offset:=ASCII"a"-ASCII"A";
  30. readfrom("rgrupper");
  31. readfrom("ligcsc");
  32.  
  33. bye.
  34.  
  35.